Exploring Where & Why/Exploring Where & Why.iso/pc/MEMMON.DIR/00079_Profile scripts.ls

Text File | 2003-04-21 | 405 b | 15 lines

on ProfileCasts
  output = EMPTY
  repeat with temp = 1 to the number of castMembers
    if cast(temp).castType <> #empty then
      castSize = cast(temp).size / 1024
      if castSize < 1 then
        put "Cast" && temp && "is <1k" & RETURN after output
        next repeat
      end if
      put "Cast" && temp && "is" && castSize & "k" & RETURN after output
    end if
  end repeat
  return output
end